'Copyright 2006 James Downey

Imports FetchXML
Imports FetchXMLBuilder.CRMServiceSDK
Imports FetchXMLBuilder.MetaDataServiceSDK

Module Helpers

    Friend CurrentMetadata As Metadata

    Friend Function GetEntity(ByVal EntityName As String) As EntityMetadata
        Dim i As Integer
        For i = 0 To CurrentMetadata.Entities.Length - 1
            If CurrentMetadata.Entities(i).Name = EntityName Then
                Return CurrentMetadata.Entities(i)
            End If
        Next
        Return Nothing
    End Function

    Friend cred As Net.NetworkCredential

End Module
